#!/usr/bin/perl

use utf8;
use strict;

chomp (my @lines = <STDIN>);
foreach (@lines) {
	if (/\./) {
		print $_, "\n";
	}
}